﻿Public Class TypeController
    Inherits BaseController(Of Q7P1TTS.Lib.Type)
    Public Overloads Shared Function load(ByVal PromptText As String, ByVal PromptValue As String) As List(Of Type)
        Dim res = load()
        Dim prompt As New Type()
        prompt.ID = PromptValue
        prompt.Name = PromptText
        res.Insert(0, prompt)
        Return res
    End Function
End Class
